home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / aga / aga285.dms / in.adf / HamLabPlus / Rexx / cropscreen.hl < prev    next >
Encoding:
Text File  |  1992-06-22  |  521 b   |  20 lines
  1. /* HamLab Plus function to crop to the current visible screen boundaries
  2.  */
  3.  
  4. /* get the display attributes from HL+ */
  5.  
  6. 'GETATTR DISPLAY STEM DISP'
  7.  
  8. /* If the visible width (or height) is zero, it means the display screen
  9.  * is not open, so don't do anything.
  10.  */
  11.  
  12. if disp.visible.width = 0 then exit 5
  13.  
  14. /* set the boundaries */
  15. 'OUTPUTCROP' 'UL' disp.visible.ulx||','||disp.visible.uly 'WIDTH' disp.visible.width 'HEIGHT' disp.visible.height
  16.  
  17. /* redisplay with the new boundaries (not strictly necessary) */
  18.  
  19. 'DISPLAY'
  20.